home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / memgraph.src < prev    next >
Text File  |  1991-05-29  |  1KB  |  24 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ MEMGRAPH
  3. @ by Bill Menees
  4. @   vv----- Change this to be how many K of RAM you have total (merged).
  5. \<< 32 MEM \-> MAXMEM M
  6.   \<< PICT RCL DUP SIZE RCLF \-> PIC HORZ VERT FLAGS
  7.     \<< -49 CF -50 CF ERASE # 83h # 40h PDIM { # 0h # 0h } PVIEW { # 0h # 20h }
  8.         { # 82h # 2Ah } BOX PICT { # 20h # 0h } "MEMORY USED" 3 \->GROB REPL
  9.         PICT { # 0h # 2Ch } "0k" 2 \->GROB REPL PICT MAXMEM \->STR k + 2
  10.         \->GROB DUP SIZE DROP # 85h SWAP - # 2Ch 2 \->LIST SWAP REPL M NEG
  11.         MAXMEM 1024 * + MAXMEM 1024 * / 131 * IP \-> N
  12.       \<< PICT N R\->B # 9h BLANK NEG { # 1h # 21h } SWAP REPL
  13.       \>> PICT MAXMEM 1024 * M - " BYTES USED." + 1 \->GROB DUP SIZE DROP
  14.         # 83h SWAP - 2 / # Eh 2 \->LIST SWAP REPL PICT M " BYTES FREE." + 1
  15.         \->GROB DUP SIZE DROP # 83h SWAP - 2 / # 15h 2 \->LIST SWAP REPL PICT
  16.         { # 24h # 38h }
  17.         GROB 56 7 C1807C17007C9F22C882A80882A0D58882AC0802A05480FCBA0802A7D58080A90802A0228040980882A0C1C13C07007C90
  18.         REPL { } PICT { # 20h # 2Fh } "PERCENT FREE: " M MAXMEM 1024 * / 100
  19.         * IP \->STR + 37 CHR + 1 \->GROB REPL PVIEW HORZ VERT PDIM PIC PICT STO
  20.         FLAGS STOF
  21.     \>>
  22.   \>>
  23. \>>
  24.